home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / TGCBOR20.ARJ / INTROPAK.COM / ANIMTST1.C next >
Text File  |  1991-04-06  |  2KB  |  56 lines
  1. /*---------------------------------------------------------------------------*
  2.  |               TEGL Windows ToolKit II                 |
  3.  |          Copyright (C) 1990, TEGL Systems Corporation             |
  4.  |                All Rights Reserved.                 |
  5.  *---------------------------------------------------------------------------*/
  6.  
  7. #include "teglsys.h"
  8. #include "animtst1.inc"
  9.  
  10. animateobject oriental;
  11. imagestkptr   orientalfs;
  12.  
  13. unsigned orientalbow(imagestkptr frame, msclickptr mouseclickpos)
  14.    {
  15.       hideimage(frame);
  16.  
  17.       hidemouse();
  18.       resetframe(&oriental,1);
  19.       animateinit();
  20.       origin(&oriental,frame->x,frame->y);
  21.       animate(&oriental,8);
  22.       showmouse();
  23.  
  24.       showimage(frame,frame->x,frame->y);
  25.       return 1;
  26.    }
  27.  
  28. void main(int argc, char **argv)
  29. {
  30.    setvideochoices(TG_CGA,FALSE);
  31.    setvideochoices(TG_VGA,FALSE);
  32.    easytegl();
  33.  
  34.    init(&oriental);
  35.    addframe(&oriental,imageCHINA,0,0,55,37,350,1200,55,BLACK);
  36.    addframe(&oriental,imageCHINA,0,0,55,37,150,1200,56,BLACK);
  37.  
  38.    addframe(&oriental,imageCHINA2,0,0,55,37,75,1100,55,BLACK);
  39.    addframe(&oriental,imageCHINA2,0,0,55,37,75,1100,56,BLACK);
  40.  
  41.    addframe(&oriental,imageCHINA3,0,0,55,37,150,900,55,BLACK);
  42.    addframe(&oriental,imageCHINA3,0,0,55,37,150,900,56,BLACK);
  43.    addframe(&oriental,imageCHINA3,0,0,55,37,600,1100,56,BLACK);
  44.  
  45.    addframe(&oriental,imageCHINA2,0,0,55,37,150,1100,0,BLACK);
  46.    addframe(&oriental,imageCHINA,0,0,55,37,500,1100,55,BLACK);
  47.  
  48.    pushimage(15,285,15 + 37,285 + 55);
  49.    putpict(15,285,imageCHINA,BLACK);
  50.    definemouseclickarea(stackptr,0,0,37,55,TRUE,orientalbow,MSCLICK);
  51.    orientalfs = stackptr;
  52.    setframemobility(stackptr,FALSE);
  53.  
  54.    teglsupervisor();
  55. }
  56.